home *** CD-ROM | disk | FTP | other *** search
/ Storm 3: Adam & Eve Portfolio / Storm III - Adam and Eve Portfolio.iso / t / t.bat < prev    next >
DOS Batch File  |  1993-01-28  |  8KB  |  571 lines
  1. @echo off
  2. cls
  3.  
  4. :T1
  5. TYPE 1.ANS
  6. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  7.  
  8. IF ERRORLEVEL 24 GOTO QUIT
  9. IF ERRORLEVEL 23 GOTO SELECTION
  10. IF ERRORLEVEL 22 GOTO T2
  11. IF ERRORLEVEL 21 GOTO 21
  12. IF ERRORLEVEL 20 GOTO 20
  13. IF ERRORLEVEL 19 GOTO 19
  14. IF ERRORLEVEL 18 GOTO 18
  15. IF ERRORLEVEL 17 GOTO 17
  16. IF ERRORLEVEL 16 GOTO 16
  17. IF ERRORLEVEL 15 GOTO 15
  18. IF ERRORLEVEL 14 GOTO 14
  19. IF ERRORLEVEL 13 GOTO 13
  20. IF ERRORLEVEL 12 GOTO 12
  21. IF ERRORLEVEL 11 GOTO 11
  22. IF ERRORLEVEL 10 GOTO 10
  23. IF ERRORLEVEL 9 GOTO 9
  24. IF ERRORLEVEL 8 GOTO 8
  25. IF ERRORLEVEL 7 GOTO 7
  26. IF ERRORLEVEL 6 GOTO 6
  27. IF ERRORLEVEL 5 GOTO 5
  28. IF ERRORLEVEL 4 GOTO 4
  29. IF ERRORLEVEL 3 GOTO 3
  30. IF ERRORLEVEL 2 GOTO 2
  31. IF ERRORLEVEL 1 GOTO 1
  32.  
  33. :T2
  34. TYPE 2.ANS
  35. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  36.  
  37. IF ERRORLEVEL 24 GOTO QUIT
  38. IF ERRORLEVEL 23 GOTO T1
  39. IF ERRORLEVEL 22 GOTO T3
  40. IF ERRORLEVEL 21 GOTO 42
  41. IF ERRORLEVEL 20 GOTO 41
  42. IF ERRORLEVEL 19 GOTO 40
  43. IF ERRORLEVEL 18 GOTO 39
  44. IF ERRORLEVEL 17 GOTO 38
  45. IF ERRORLEVEL 16 GOTO 37
  46. IF ERRORLEVEL 15 GOTO 36
  47. IF ERRORLEVEL 14 GOTO 35
  48. IF ERRORLEVEL 13 GOTO 34
  49. IF ERRORLEVEL 12 GOTO 33
  50. IF ERRORLEVEL 11 GOTO 32
  51. IF ERRORLEVEL 10 GOTO 31
  52. IF ERRORLEVEL 9 GOTO 30
  53. IF ERRORLEVEL 8 GOTO 29
  54. IF ERRORLEVEL 7 GOTO 28
  55. IF ERRORLEVEL 6 GOTO 27
  56. IF ERRORLEVEL 5 GOTO 26
  57. IF ERRORLEVEL 4 GOTO 25
  58. IF ERRORLEVEL 3 GOTO 24
  59. IF ERRORLEVEL 2 GOTO 23
  60. IF ERRORLEVEL 1 GOTO 22
  61.  
  62.  
  63. :T3
  64. TYPE 3.ANS
  65. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  66.  
  67. IF ERRORLEVEL 24 GOTO QUIT
  68. IF ERRORLEVEL 23 GOTO T2
  69. IF ERRORLEVEL 22 GOTO T4
  70. IF ERRORLEVEL 21 GOTO 63
  71. IF ERRORLEVEL 20 GOTO 62
  72. IF ERRORLEVEL 19 GOTO 61
  73. IF ERRORLEVEL 18 GOTO 60
  74. IF ERRORLEVEL 17 GOTO 59
  75. IF ERRORLEVEL 16 GOTO 58
  76. IF ERRORLEVEL 15 GOTO 57
  77. IF ERRORLEVEL 14 GOTO 56
  78. IF ERRORLEVEL 13 GOTO 55
  79. IF ERRORLEVEL 12 GOTO 54
  80. IF ERRORLEVEL 11 GOTO 53
  81. IF ERRORLEVEL 10 GOTO 52
  82. IF ERRORLEVEL 9 GOTO 51
  83. IF ERRORLEVEL 8 GOTO 50
  84. IF ERRORLEVEL 7 GOTO 49
  85. IF ERRORLEVEL 6 GOTO 48
  86. IF ERRORLEVEL 5 GOTO 47
  87. IF ERRORLEVEL 4 GOTO 46
  88. IF ERRORLEVEL 3 GOTO 45
  89. IF ERRORLEVEL 2 GOTO 44
  90. IF ERRORLEVEL 1 GOTO 43
  91.  
  92.  
  93.  
  94. :T4
  95. TYPE 4.ANS
  96. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  97.  
  98. IF ERRORLEVEL 24 GOTO QUIT
  99. IF ERRORLEVEL 23 GOTO T3
  100. IF ERRORLEVEL 22 GOTO T5
  101. IF ERRORLEVEL 21 GOTO 84
  102. IF ERRORLEVEL 20 GOTO 83
  103. IF ERRORLEVEL 19 GOTO 82
  104. IF ERRORLEVEL 18 GOTO 81
  105. IF ERRORLEVEL 17 GOTO 80
  106. IF ERRORLEVEL 16 GOTO 79
  107. IF ERRORLEVEL 15 GOTO 78
  108. IF ERRORLEVEL 14 GOTO 77
  109. IF ERRORLEVEL 13 GOTO 76
  110. IF ERRORLEVEL 12 GOTO 75
  111. IF ERRORLEVEL 11 GOTO 74
  112. IF ERRORLEVEL 10 GOTO 73
  113. IF ERRORLEVEL 9 GOTO 72
  114. IF ERRORLEVEL 8 GOTO 71
  115. IF ERRORLEVEL 7 GOTO 70
  116. IF ERRORLEVEL 6 GOTO 69
  117. IF ERRORLEVEL 5 GOTO 68
  118. IF ERRORLEVEL 4 GOTO 67
  119. IF ERRORLEVEL 3 GOTO 66
  120. IF ERRORLEVEL 2 GOTO 65
  121. IF ERRORLEVEL 1 GOTO 64
  122.  
  123. :T5
  124. TYPE 5.ANS
  125. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  126.  
  127. IF ERRORLEVEL 24 GOTO QUIT
  128. IF ERRORLEVEL 23 GOTO T4
  129. IF ERRORLEVEL 22 GOTO T6
  130. IF ERRORLEVEL 21 GOTO 105
  131. IF ERRORLEVEL 20 GOTO 104
  132. IF ERRORLEVEL 19 GOTO 103
  133. IF ERRORLEVEL 18 GOTO 102
  134. IF ERRORLEVEL 17 GOTO 101
  135. IF ERRORLEVEL 16 GOTO 100
  136. IF ERRORLEVEL 15 GOTO 99
  137. IF ERRORLEVEL 14 GOTO 98
  138. IF ERRORLEVEL 13 GOTO 97
  139. IF ERRORLEVEL 12 GOTO 96
  140. IF ERRORLEVEL 11 GOTO 95
  141. IF ERRORLEVEL 10 GOTO 94
  142. IF ERRORLEVEL 9 GOTO 93
  143. IF ERRORLEVEL 8 GOTO 92
  144. IF ERRORLEVEL 7 GOTO 91
  145. IF ERRORLEVEL 6 GOTO 90
  146. IF ERRORLEVEL 5 GOTO 89
  147. IF ERRORLEVEL 4 GOTO 88
  148. IF ERRORLEVEL 3 GOTO 87
  149. IF ERRORLEVEL 2 GOTO 86
  150. IF ERRORLEVEL 1 GOTO 85
  151.  
  152. :T6
  153. TYPE 6.ANS
  154. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  155.  
  156. IF ERRORLEVEL 24 GOTO QUIT
  157. IF ERRORLEVEL 23 GOTO T5
  158. IF ERRORLEVEL 21 GOTO 126
  159. IF ERRORLEVEL 20 GOTO 125
  160. IF ERRORLEVEL 19 GOTO 124
  161. IF ERRORLEVEL 18 GOTO 123
  162. IF ERRORLEVEL 17 GOTO 122
  163. IF ERRORLEVEL 16 GOTO 121
  164. IF ERRORLEVEL 15 GOTO 120
  165. IF ERRORLEVEL 14 GOTO 119
  166. IF ERRORLEVEL 13 GOTO 118
  167. IF ERRORLEVEL 12 GOTO 117
  168. IF ERRORLEVEL 11 GOTO 116
  169. IF ERRORLEVEL 10 GOTO 115
  170. IF ERRORLEVEL 9 GOTO 114
  171. IF ERRORLEVEL 8 GOTO 113
  172. IF ERRORLEVEL 7 GOTO 112
  173. IF ERRORLEVEL 6 GOTO 111
  174. IF ERRORLEVEL 5 GOTO 110
  175. IF ERRORLEVEL 4 GOTO 109
  176. IF ERRORLEVEL 3 GOTO 108
  177. IF ERRORLEVEL 2 GOTO 107
  178. IF ERRORLEVEL 1 GOTO 106
  179.  
  180. :1
  181. VPIC /A TABITHA1
  182. GOTO T1
  183. :2
  184. VPIC /A TABITHA3
  185. GOTO T1
  186. :3
  187. VPIC /A TAIJAR
  188. GOTO T1
  189. :4
  190. VPIC /A TAIPB012
  191. GOTO T1
  192. :5
  193. VPIC /A TAIPB025
  194. GOTO T1
  195. :6
  196. VPIC /A TAIPB026
  197. GOTO T1
  198. :7
  199. VPIC /A TAIPB027
  200. GOTO T1
  201. :8
  202. VPIC /A TAIPB029
  203. GOTO T1
  204. :9
  205. VPIC /A TAKE2
  206. GOTO T1
  207. :10
  208. VPIC /A TAMI_R
  209. GOTO T1
  210. :11
  211. VPIC /A TAMMY_1
  212. GOTO T1
  213. :12
  214. VPIC /A TAMMY_2
  215. GOTO T1
  216. :13
  217. VPIC /A TAMMY_3
  218. GOTO T1
  219. :14
  220. VPIC /A TANED
  221. GOTO T1
  222. :15
  223. VPIC /A TANIA_1
  224. GOTO T1
  225. :16
  226. VPIC /A TANIA_2
  227. GOTO T1
  228. :17
  229. VPIC /A TANIA_3
  230. GOTO T1
  231. :18
  232. VPIC /A TANIA_4
  233. GOTO T1
  234. :19
  235. VPIC /A TANIN01
  236. GOTO T1
  237. :20
  238. VPIC /A TANIN02
  239. GOTO T1
  240. :21
  241. VPIC /A TAP
  242. GOTO T1
  243. :22
  244. VPIC /A TAT03
  245. GOTO T2
  246. :23
  247. VPIC /A TC058
  248. GOTO T2
  249. :24
  250. VPIC /A TCB_STY2
  251. GOTO T2
  252. :25
  253. VPIC /A TCPX0024
  254. GOTO T2
  255. :26
  256. VPIC /A TCPX0030
  257. GOTO T2
  258. :27
  259. VPIC /A TCPX0034
  260. GOTO T2
  261. :28
  262. VPIC /A TCPX0037
  263. GOTO T2
  264. :29
  265. VPIC /A TCPX0040
  266. GOTO T2
  267. :30
  268. VPIC /A TCPX0043
  269. GOTO T2
  270. :31
  271. VPIC /A TCPX0044
  272. GOTO T2
  273. :32
  274. VPIC /A TCPX0045
  275. GOTO T2
  276. :33
  277. VPIC /A TCPX0050
  278. GOTO T2
  279. :34
  280. VPIC /A TCPX0052
  281. GOTO T2
  282. :35
  283. VPIC /A TCPX0053
  284. GOTO T2
  285. :36
  286. VPIC /A TCPX0054
  287. GOTO T2
  288. :37
  289. VPIC /A TCPX0055
  290. GOTO T2
  291. :38
  292. VPIC /A TCPX0056
  293. GOTO T2
  294. :39
  295. VPIC /A TCPX0058
  296. GOTO T2
  297. :40
  298. VPIC /A TCPX0073
  299. GOTO T2
  300. :41
  301. VPIC /A TCPX0080
  302. GOTO T2
  303. :42
  304. VPIC /A TC_R_009
  305. GOTO T2
  306. :43
  307. VPIC /A TC_R_036
  308. GOTO T3
  309. :44
  310. VPIC /A TC_R_102
  311. GOTO T3
  312. :45
  313. VPIC /A TC_R_132
  314. GOTO T3
  315. :46
  316. VPIC /A TC_R_230
  317. GOTO T3
  318. :47
  319. VPIC /A TC_X_001
  320. GOTO T3
  321. :48
  322. VPIC /A TC_X_013
  323. GOTO T3
  324. :49
  325. VPIC /A TC_X_098
  326. GOTO T3
  327. :50
  328. VPIC /A TC_X_099
  329. GOTO T3
  330. :51
  331. VPIC /A TC_X_212
  332. GOTO T3
  333. :52
  334. VPIC /A TC_X_389
  335. GOTO T3
  336. :53
  337. VPIC /A TC_X_556
  338. GOTO T3
  339. :54
  340. VPIC /A TC_X_572
  341. GOTO T3
  342. :55
  343. VPIC /A TEDDY_1
  344. GOTO T3
  345. :56
  346. VPIC /A TEETH_3
  347. GOTO T3
  348. :57
  349. VPIC /A TEFR9A14
  350. GOTO T3
  351. :58
  352. VPIC /A TEFX9A39
  353. GOTO T3
  354. :59
  355. VPIC /A TER100
  356. GOTO T3
  357. :60
  358. VPIC /A TERESA01
  359. GOTO T3
  360. :61
  361. VPIC /A TERESA02
  362. GOTO T3
  363. :62
  364. VPIC /A TESSIE
  365. GOTO T3
  366. :63
  367. VPIC /A TEXASBUN
  368. GOTO T3
  369. :64
  370. VPIC /A TGSIS02C
  371. GOTO T4
  372. :65
  373. VPIC /A TG_R0492
  374. GOTO T4
  375. :66
  376. VPIC /A TG_X1709
  377. GOTO T4
  378. :67
  379. VPIC /A THAINA3
  380. GOTO T4
  381. :68
  382. VPIC /A THAI_002
  383. GOTO T4
  384. :69
  385. VPIC /A THEONIE1
  386. GOTO T4
  387. :70
  388. VPIC /A THEONIE2
  389. GOTO T4
  390. :71
  391. VPIC /A THE_END
  392. GOTO T4
  393. :72
  394. VPIC /A THWACK
  395. GOTO T4
  396. :73
  397. VPIC /A TIA3
  398. GOTO T4
  399. :74
  400. VPIC /A TIEDBIKE
  401. GOTO T4
  402. :75
  403. VPIC /A TINA02
  404. GOTO T4
  405. :76
  406. VPIC /A TINA_2
  407. GOTO T4
  408. :77
  409. VPIC /A TINA_3
  410. GOTO T4
  411. :78
  412. VPIC /A TINA_4
  413. GOTO T4
  414. :79
  415. VPIC /A TINA_5
  416. GOTO T4
  417. :80
  418. VPIC /A TINA_7
  419. GOTO T4
  420. :81
  421. VPIC /A TINA_8
  422. GOTO T4
  423. :82
  424. VPIC /A TIP
  425. GOTO T4
  426. :83
  427. VPIC /A TISA
  428. GOTO T4
  429. :84
  430. VPIC /A TITS!
  431. GOTO T4
  432. :85
  433. VPIC /A TITS01
  434. GOTO T5
  435. :86
  436. VPIC /A TNICK07
  437. GOTO T5
  438. :87
  439. VPIC /A TOGA_1
  440. GOTO T5
  441. :88
  442. VPIC /A TOGA_2
  443. GOTO T5
  444. :89
  445. VPIC /A TOGA_3
  446. GOTO T5
  447. :90
  448. VPIC /A TOGA_4
  449. GOTO T5
  450. :91
  451. VPIC /A TOOMUCH
  452. GOTO T5
  453. :92
  454. VPIC /A TOPSY
  455. GOTO T5
  456. :93
  457. VPIC /A TOYSIN2
  458. GOTO T5
  459. :94
  460. VPIC /A TOYSIN3
  461. GOTO T5
  462. :95
  463. VPIC /A TPIX0011
  464. GOTO T5
  465. :96
  466. VPIC /A TR0004
  467. GOTO T5
  468. :97
  469. VPIC /A TRACI
  470. GOTO T5
  471. :98
  472. VPIC /A TRACI_ME
  473. GOTO T5
  474. :99
  475. VPIC /A TRACY04
  476. GOTO T5
  477. :100
  478. VPIC /A TRACY05
  479. GOTO T5
  480. :101
  481. VPIC /A TRANSU2
  482. GOTO T5
  483. :102
  484. VPIC /A TRINA_1
  485. GOTO T5
  486. :103
  487. VPIC /A TRINA_2
  488. GOTO T5
  489. :104
  490. VPIC /A TRINA_3
  491. GOTO T5
  492. :105
  493. VPIC /A TRINA_4
  494. GOTO T5
  495. :106
  496. VPIC /A TRINA_5
  497. GOTO T6
  498. :107
  499. VPIC /A TRINA_6
  500. GOTO T6
  501. :108
  502. VPIC /A TRINA_7
  503. GOTO T6
  504. :109
  505. VPIC /A TRINA_8
  506. GOTO T6
  507. :110
  508. VPIC /A TRINITY1
  509. GOTO T6
  510. :111
  511. VPIC /A TS2
  512. GOTO T6
  513. :112
  514. VPIC /A TVV_X_02
  515. GOTO T6
  516. :113
  517. VPIC /A TWEETY1
  518. GOTO T6
  519. :114
  520. VPIC /A TWEETY2
  521. GOTO T6
  522. :115
  523. VPIC /A TWELLES1
  524. GOTO T6
  525. :116
  526. VPIC /A TWIN1
  527. GOTO T6
  528. :117
  529. VPIC /A TWINS1
  530. GOTO T6
  531. :118
  532. VPIC /A TWINS2
  533. GOTO T6
  534. :119
  535. VPIC /A TWYLA1
  536. GOTO T6
  537. :120
  538. VPIC /A TXO_005A
  539. GOTO T6
  540. :121
  541. VPIC /A TXO_005P
  542. GOTO T6
  543. :122
  544. VPIC /A TXR_0608
  545. GOTO T6
  546. :123
  547. VPIC /A T_2
  548. GOTO T6
  549. :124
  550. VPIC /A T_DANL03
  551. GOTO T6
  552. :125
  553. VPIC /A T_PG08YI
  554. GOTO T6
  555. :126
  556. VPIC /A T_PG09YI
  557. GOTO T6
  558.  
  559. :SELECTION 
  560. CD\SETUP
  561. FSTORM3 
  562.  
  563. :QUIT 
  564. CD\SETUP
  565. FSTORM3 
  566.  
  567.  
  568.  
  569.  
  570.            
  571.